Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/tbbs/prgsourc.zip/HOMES.ZIP/ENEW.PRG

Text File | 1996-01-14 | 5KB | 184 lines

PROCEDURE enew

SELECT a

SET DELETED OFF
COUNT TO cnt
GOTO TOP
x=1
DO WHILE .NOT. Deleted() .AND. x < cnt
   SKIP
   x = x + 1
ENDDO
IF Deleted()
   RECALL
   SET DELETED ON
ELSE
   SET DELETED ON
   IF cnt = 999
      DO BoxB WITH 9,17,13,63
      @ 10,22 SAY    "Maximum of 999 listings per locality."
      @ 11,19 SAY "No more listings may be added at this time."
      @ 12,30 SAY            "Please notify Sysop."
      key = inkey(7)
      DO cls WITH 0,0,23,79
      RETURN
   ENDIF
   GOTO TOP
   x = 1
   DO WHILE x = Val(pic1) .AND. x < cnt
      SKIP
      x = x + 1
   ENDDO
   IF x # Val(pic1)
      cnt  = x
   ELSE
      cnt = cnt + 1
   ENDIF
   APPEND BLANK
   IF cnt < 10
      pc1 = "00"+ Str(cnt,1)
   ELSE
      IF cnt < 100
         pc1 = "0"+ Str(cnt,2)
      ELSE
         pc1 = Str(cnt,3)
      ENDIF
   ENDIF
   REPLACE pic1 WITH pc1
ENDIF                            && Pointer set to blank record except pic1
ok = .T.

IF own
   brok = " "
   DO cls WITH 2,0,20,79
   DO BoxW WITH 4,10,7,37
   @ 5,12 SAY "Select the listing agent"
   @ 6,12 SAY "from the pick list"
   DO pagnt
   SELECT a
   REPLACE broker WITH brok
ELSE
   REPLACE broker WITH agnte
ENDIF

REPLACE date WITH Date()

**************************************************
*       Subdivision

SET COLOR TO GR+/R
@ 23,5 SAY "<Esc>"
SET COLOR TO W+/R
@ 23,11 SAY "= Subdivision not on list"
DO cls WITH 2,0,20,79
DO BoxW WITH 7,12,13,41
@ 8,14 SAY  "Select the subdivision, or"
@ 9,14 SAY  "  if not in a subdivision."
@ 11,14 SAY "If the subdivision is not"
@ 12,14 SAY "listed, press <Esc>."
SET COLOR TO GR+/W
@ 9,14 SAY "S"
cksub = " "
DO psub WITH 1

IF cksub = " "                                  && <Esc> was pressed
   SELECT e
   APPEND BLANK
   DO cls WITH 2,0,20,79
   DO BoxW WITH 6,20,8,66
   @ 7,22 SAY "Enter the name of the Subdivision"
   SET COLOR TO W+/W
   @ 8,27 GET cksub PICTURE "@K "
   READ
   REPLACE sname WITH sb
   SELECT a
   REPLACE sub WITH sb
   SET COLOR TO GR+/R
   @ 21,0 CLEAR TO 23,79
   @ 21,5 SAY "Up/Dn Arrow "
   @ 22,5 SAY "<Enter> "
   SET COLOR TO W+/R
   @ 21,17 SAY "= Move within pick list"
   @ 22,13 SAY "= Select from pick list"
   DO cls WITH 2,0,20,79
   DO BoxW WITH 7,6,10,47
   @ 8,8 SAY "Choose the area from the list by high-"
   @ 9,8 SAY "liting the area and pressing <Enter>"
   key = InKey(4)
   DO cls WITH 7,6,10,46
   DO parea WITH 2
ELSE
   SELECT a
   REPLACE sub WITH cksub
   SELECT e
   SEEK cksub
   IF aname = "."
      SET COLOR TO GR+/R
      @ 21,0 CLEAR TO 23,79
      @ 21,5 SAY "Up/Dn Arrow "
      @ 22,5 SAY "<Enter> "
      SET COLOR TO W+/R
      @ 21,17 SAY "= Move within pick list"
      @ 22,13 SAY "= Select from pick list"
      DO cls WITH 2,0,20,79
      DO BoxW WITH 7,6,10,47
      @ 8,8 SAY "Choose the area from the list by high-"
      @ 9,8 SAY "liting the area and pressing <Enter>"
      key = InKey(4)
      DO cls WITH 7,6,10,46
      DO parea WITH 2
   ELSE
      SELECT a
      REPLACE area WITH e->aname
   ENDIF
ENDIF

DO cls WITH 2,0,20,79
DO BoxW WITH 7,5,11,50
@ 8,7 SAY  "Select the home design from the pick list."
@ 9,7 SAY  "Descriptions can be found in Help."
@ 10,7 SAY "( Most homes will be             )"
SET COLOR TO GR+/W
@ 10,28 SAY "Traditional"
DO pdes WITH 2
DO cls WITH 2,0,20,79
DO BoxW WITH 7,5,9,47
@ 8,7 SAY "Select the exterior from the pick list."
DO pext
DO tf                                         && Trailer Full Scr Edit
DO e2scr

SET FORMAT TO fnew NOCLEAR
DO WHILE .T.
   READ
   DO CASE
      CASE LastKey() = 3                         && <Page Dn>
           IF size < 300 .OR. beds = 0 .OR. baths = 0
              DO BoxB WITH 5,49,9,79
              @ 6,51 SAY "One of the following values"
              @ 7,51 SAY "is incorrect:  Home Size,"
              @ 8,51 SAY "# of Bedrooms, # of Baths"
              key = InKey(6)
              DO cls WITH 5,49,9,79
              LOOP
           ENDIF
           DO ty
           DO BoxW WITH 5,49,9,79
           @ 6,51 SAY "This data cannot be changed"
           @ 7,51 SAY "after leaving this screen."
           @ 8,51 SAY "  Is everything correct?"
           Key = InKey(30)
           IF LastKey() = 89 .OR. LastKey() = 121        && `Y' or `y'
              DO cls WITH 5,49,9,79
              EXIT
           ENDIF
           DO cls WITH 5,49,9,79
           LOOP
      OTHERWISE
           LOOP
   ENDCASE
ENDDO
RETURN